home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u344.dms / in.adf / rexx / tab.tpl < prev    next >
Encoding:
Text File  |  1990-04-03  |  321 b   |  22 lines
  1. /* tab-macro */
  2.  
  3. /* löscht alle tabs und setzte an jede 10 Spalte ein tab */
  4. /* clears all tabs and sets a tab every 10th column */
  5.  
  6. /* TextPlus ist unser Gastgeber. */
  7. /* TextPlus is our host. */
  8.  
  9. address 'TextPlus'
  10.  
  11. 'ClearTabs'
  12.  
  13. 'SetTab' 1
  14.  
  15. do i = 10 by 10 to 70
  16.  
  17.    'SetTab' i
  18.  
  19. end
  20.  
  21. 'Display' 'Tab-Macro ... finished'
  22.